pull.out <- rep(NA, 192) 


#	1	 	education[1]		agglo[1]		age[1]		gender[1]
pull.out[1] <- as.integer(block.use[561,4]) + as.integer(block.use[598,4]) + as.integer(block.use[931,4])
#	2	 	education[1]		agglo[1]		age[1]		gender[2]
pull.out[2] <- as.integer(block.use[561,9]) + as.integer(block.use[598,9]) + as.integer(block.use[931,9])
#	3	 	education[1]		agglo[1]		age[2]		gender[1]
pull.out[3] <- as.integer(block.use[561,5]) + as.integer(block.use[598,5]) + as.integer(block.use[931,5])
#	4	 	education[1]		agglo[1]		age[2]		gender[2]
pull.out[4] <- as.integer(block.use[561,10]) + as.integer(block.use[598,10]) + as.integer(block.use[931,10])
#	5	 	education[1]		agglo[1]		age[3]		gender[1]
pull.out[5] <- as.integer(block.use[561,6]) + as.integer(block.use[598,6]) + as.integer(block.use[931,6])
#	6	 	education[1]		agglo[1]		age[3]		gender[2]
pull.out[6] <- as.integer(block.use[561,11]) + as.integer(block.use[598,11]) + as.integer(block.use[931,11])
#	7	 	education[1]		agglo[1]		age[4]		gender[1]
pull.out[7] <- as.integer(block.use[561,7]) + as.integer(block.use[598,7]) + as.integer(block.use[931,7])
#	8	 	education[1]		agglo[1]		age[4]		gender[2]
pull.out[8] <- as.integer(block.use[561,12]) + as.integer(block.use[598,12]) + as.integer(block.use[931,12])
#
#	9	 	education[1]		agglo[2]		age[1]		gender[1]
pull.out[9] <- as.integer(block.use[1043,4]) + as.integer(block.use[1080,4]) + as.integer(block.use[1413,4])
#	10	 	education[1]		agglo[2]		age[1]		gender[2]
pull.out[10] <- as.integer(block.use[1043,9]) + as.integer(block.use[1080,9]) + as.integer(block.use[1413,9])
#	11	 	education[1]		agglo[2]		age[2]		gender[1]
pull.out[11] <- as.integer(block.use[1043,5]) + as.integer(block.use[1080,5]) + as.integer(block.use[1413,5])
#	12	 	education[1]		agglo[2]		age[2]		gender[2]
pull.out[12] <- as.integer(block.use[1043,10]) + as.integer(block.use[1080,10]) + as.integer(block.use[1413,10])
#	13	 	education[1]		agglo[2]		age[3]		gender[1]
pull.out[13] <- as.integer(block.use[1043,6]) + as.integer(block.use[1080,6]) + as.integer(block.use[1413,6])
#	14	 	education[1]		agglo[2]		age[3]		gender[2]
pull.out[14] <- as.integer(block.use[1043,11]) + as.integer(block.use[1080,11]) + as.integer(block.use[1413,11])
#	15	 	education[1]		agglo[2]		age[4]		gender[1]
pull.out[15] <- as.integer(block.use[1043,7]) + as.integer(block.use[1080,7]) + as.integer(block.use[1413,7])
#	16	 	education[1]		agglo[2]		age[4]		gender[2]
pull.out[16] <- as.integer(block.use[1043,12]) + as.integer(block.use[1080,12]) + as.integer(block.use[1413,12])
#
#	17	 	education[1]		agglo[3]		age[1]		gender[1]
pull.out[17] <- as.integer(block.use[1525,4]) + as.integer(block.use[1562,4]) + as.integer(block.use[1895,4])
#	18	 	education[1]		agglo[3]		age[1]		gender[2]
pull.out[18] <- as.integer(block.use[1525,9]) + as.integer(block.use[1562,9]) + as.integer(block.use[1895,9])
#	19	 	education[1]		agglo[3]		age[2]		gender[1]
pull.out[19] <- as.integer(block.use[1525,5]) + as.integer(block.use[1562,5]) + as.integer(block.use[1895,5])
#	20	 	education[1]		agglo[3]		age[2]		gender[2]
pull.out[20] <- as.integer(block.use[1525,10]) + as.integer(block.use[1562,10]) + as.integer(block.use[1895,10])
#	21	 	education[1]		agglo[3]		age[3]		gender[1]
pull.out[21] <- as.integer(block.use[1525,6]) + as.integer(block.use[1562,6]) + as.integer(block.use[1895,6])
#	22	 	education[1]		agglo[3]		age[3]		gender[2]
pull.out[22] <- as.integer(block.use[1525,11]) + as.integer(block.use[1562,11]) + as.integer(block.use[1895,11])
#	23	 	education[1]		agglo[3]		age[4]		gender[1]
pull.out[23] <- as.integer(block.use[1525,7]) + as.integer(block.use[1562,7]) + as.integer(block.use[1895,7])
#	24	 	education[1]		agglo[3]		age[4]		gender[2]
pull.out[24] <- as.integer(block.use[1525,12]) + as.integer(block.use[1562,12]) + as.integer(block.use[1895,12])
#
#	25	 	education[1]		agglo[4]		age[1]		gender[1]
pull.out[25] <- as.integer(block.use[2007,4]) + as.integer(block.use[2044,4]) + as.integer(block.use[2377,4])
#	26	 	education[1]		agglo[4]		age[1]		gender[2]
pull.out[26] <- as.integer(block.use[2007,9]) + as.integer(block.use[2044,9]) + as.integer(block.use[2377,9])
#	27	 	education[1]		agglo[4]		age[2]		gender[1]
pull.out[27] <- as.integer(block.use[2007,5]) + as.integer(block.use[2044,5]) + as.integer(block.use[2377,5])
#	28	 	education[1]		agglo[4]		age[2]		gender[2]
pull.out[28] <- as.integer(block.use[2007,10]) + as.integer(block.use[2044,10]) + as.integer(block.use[2377,10])
#	29	 	education[1]		agglo[4]		age[3]		gender[1]
pull.out[29] <- as.integer(block.use[2007,6]) + as.integer(block.use[2044,6]) + as.integer(block.use[2377,6])
#	30	 	education[1]		agglo[4]		age[3]		gender[2]
pull.out[30] <- as.integer(block.use[2007,11]) + as.integer(block.use[2044,11]) + as.integer(block.use[2377,11])
#	31	 	education[1]		agglo[4]		age[4]		gender[1]
pull.out[31] <- as.integer(block.use[2007,7]) + as.integer(block.use[2044,7]) + as.integer(block.use[2377,7])
#	32	 	education[1]		agglo[4]		age[4]		gender[2]
pull.out[32] <- as.integer(block.use[2007,12]) + as.integer(block.use[2044,12]) + as.integer(block.use[2377,12])
#
#	33	 	education[2]		agglo[1]		age[1]		gender[1]
pull.out[33] <- as.integer(block.use[635,4]) + as.integer(block.use[672,4])
#	34	 	education[2]		agglo[1]		age[1]		gender[2]
pull.out[34] <- as.integer(block.use[635,9]) + as.integer(block.use[672,9])
#	35	 	education[2]		agglo[1]		age[2]		gender[1]
pull.out[35] <- as.integer(block.use[635,5]) + as.integer(block.use[672,5])
#	36	 	education[2]		agglo[1]		age[2]		gender[2]
pull.out[36] <- as.integer(block.use[635,10]) + as.integer(block.use[672,10])
#	37	 	education[2]		agglo[1]		age[3]		gender[1]
pull.out[37] <- as.integer(block.use[635,6]) + as.integer(block.use[672,6])
#	38	 	education[2]		agglo[1]		age[3]		gender[2]
pull.out[38] <- as.integer(block.use[635,11]) + as.integer(block.use[672,11])
#	39	 	education[2]		agglo[1]		age[4]		gender[1]
pull.out[39] <- as.integer(block.use[635,7]) + as.integer(block.use[672,7])
#	40	 	education[2]		agglo[1]		age[4]		gender[2]
pull.out[40] <- as.integer(block.use[635,12]) + as.integer(block.use[672,12])
#
#	41	 	education[2]		agglo[2]		age[1]		gender[1]
pull.out[41] <- as.integer(block.use[1117,4]) + as.integer(block.use[1154,4])
#	42	 	education[2]		agglo[2]		age[1]		gender[2]
pull.out[42] <- as.integer(block.use[1117,9]) + as.integer(block.use[1154,9])
#	43	 	education[2]		agglo[2]		age[2]		gender[1]
pull.out[43] <- as.integer(block.use[1117,5]) + as.integer(block.use[1154,5])
#	44	 	education[2]		agglo[2]		age[2]		gender[2]
pull.out[44] <- as.integer(block.use[1117,10]) + as.integer(block.use[1154,10])
#	45	 	education[2]		agglo[2]		age[3]		gender[1]
pull.out[45] <- as.integer(block.use[1117,6]) + as.integer(block.use[1154,6])
#	46	 	education[2]		agglo[2]		age[3]		gender[2]
pull.out[46] <- as.integer(block.use[1117,11]) + as.integer(block.use[1154,11])
#	47	 	education[2]		agglo[2]		age[4]		gender[1]
pull.out[47] <- as.integer(block.use[1117,7]) + as.integer(block.use[1154,7])
#	48		education[2]		agglo[2]		age[4]		gender[2]
pull.out[48] <- as.integer(block.use[1117,12]) + as.integer(block.use[1154,12])
#
#	49		education[2]		agglo[3]		age[1]		gender[1]
pull.out[49] <- as.integer(block.use[1599,4]) + as.integer(block.use[1636,4])
#	50	 	education[2]		agglo[3]		age[1]		gender[2]f
pull.out[50] <- as.integer(block.use[1599,9]) + as.integer(block.use[1636,9])
#	51	 	education[2]		agglo[3]		age[2]		gender[1]
pull.out[51] <- as.integer(block.use[1599,5]) + as.integer(block.use[1636,5])
#	52	 	education[2]		agglo[3]		age[2]		gender[2]
pull.out[52] <- as.integer(block.use[1599,10]) + as.integer(block.use[1636,10])
#	53	 	education[2]		agglo[3]		age[3]		gender[1]
pull.out[53] <- as.integer(block.use[1599,6]) + as.integer(block.use[1636,6])
#	54	 	education[2]		agglo[3]		age[3]		gender[2]
pull.out[54] <- as.integer(block.use[1599,11]) + as.integer(block.use[1636,11])
#	55	 	education[2]		agglo[3]		age[4]		gender[1]
pull.out[55] <- as.integer(block.use[1599,7]) + as.integer(block.use[1636,7])
#	56	 	education[2]		agglo[3]		age[4]		gender[2]
pull.out[56] <- as.integer(block.use[1599,12]) + as.integer(block.use[1636,12])
#
#	57	 	education[2]		agglo[4]		age[1]		gender[1]
pull.out[57] <- as.integer(block.use[2081,4]) + as.integer(block.use[2118,4])
#	58	 	education[2]		agglo[4]		age[1]		gender[2]
pull.out[58] <- as.integer(block.use[2081,9]) + as.integer(block.use[2118,9])
#	59	 	education[2]		agglo[4]		age[2]		gender[1]
pull.out[59] <- as.integer(block.use[2081,5]) + as.integer(block.use[2118,5])
#	60	 	education[2]		agglo[4]		age[2]		gender[2]
pull.out[60] <- as.integer(block.use[2081,10]) + as.integer(block.use[2118,10])
#	61	 	education[2]		agglo[4]		age[3]		gender[1]
pull.out[61] <- as.integer(block.use[2081,6]) + as.integer(block.use[2118,6])
#	62	 	education[2]		agglo[4]		age[3]		gender[2]
pull.out[62] <- as.integer(block.use[2081,11]) + as.integer(block.use[2118,11])
#	63	 	education[2]		agglo[4]		age[4]		gender[1]
pull.out[63] <- as.integer(block.use[2081,7]) + as.integer(block.use[2118,7])
#	64	 	education[2]		agglo[4]		age[4]		gender[2]
pull.out[64] <- as.integer(block.use[2081,12]) + as.integer(block.use[2118,12])
#
#	65	 	education[3]		agglo[1]		age[1]		gender[1]
pull.out[65] <- as.integer(block.use[709,4]) + as.integer(block.use[746,4])
#	66	 	education[3]		agglo[1]		age[1]		gender[2]
pull.out[66] <- as.integer(block.use[709,9]) + as.integer(block.use[746,9])
#	67	 	education[3]		agglo[1]		age[2]		gender[1]
pull.out[67] <- as.integer(block.use[709,5]) + as.integer(block.use[746,5])
#	68	 	education[3]		agglo[1]		age[2]		gender[2]
pull.out[68] <- as.integer(block.use[709,10]) + as.integer(block.use[746,10])
#	69	 	education[3]		agglo[1]		age[3]		gender[1]
pull.out[69] <- as.integer(block.use[709,6]) + as.integer(block.use[746,6])
#	70	 	education[3]		agglo[1]		age[3]		gender[2]
pull.out[70] <- as.integer(block.use[709,11]) + as.integer(block.use[746,11])
#	71	 	education[3]		agglo[1]		age[4]		gender[1]
pull.out[71] <- as.integer(block.use[709,7]) + as.integer(block.use[746,7])
#	72	 	education[3]		agglo[1]		age[4]		gender[2]
pull.out[72] <- as.integer(block.use[709,12]) + as.integer(block.use[746,12])
#
#	73	 	education[3]		agglo[2]		age[1]		gender[1]
pull.out[73] <- as.integer(block.use[1191,4]) + as.integer(block.use[1228,4])
#	74	 	education[3]		agglo[2]		age[1]		gender[2]
pull.out[74] <- as.integer(block.use[1191,9]) + as.integer(block.use[1228,9])
#	75	 	education[3]		agglo[2]		age[2]		gender[1]
pull.out[75] <- as.integer(block.use[1191,5]) + as.integer(block.use[1228,5])
#	76	 	education[3]		agglo[2]		age[2]		gender[2]
pull.out[76] <- as.integer(block.use[1191,10]) + as.integer(block.use[1228,10])
#	77	 	education[3]		agglo[2]		age[3]		gender[1]
pull.out[77] <- as.integer(block.use[1191,6]) + as.integer(block.use[1228,6])
#	78	 	education[3]		agglo[2]		age[3]		gender[2]
pull.out[78] <- as.integer(block.use[1191,11]) + as.integer(block.use[1228,11])
#	79	 	education[3]		agglo[2]		age[4]		gender[1]
pull.out[79] <- as.integer(block.use[1191,7]) + as.integer(block.use[1228,7])
#	80	 	education[3]		agglo[2]		age[4]		gender[2]
pull.out[80] <- as.integer(block.use[1191,12]) + as.integer(block.use[1228,12])
#
#	81	 	education[3]		agglo[3]		age[1]		gender[1]
pull.out[81] <- as.integer(block.use[1673,4]) + as.integer(block.use[1710,4])
#	82	 	education[3]		agglo[3]		age[1]		gender[2]
pull.out[82] <- as.integer(block.use[1673,9]) + as.integer(block.use[1710,9])
#	83	 	education[3]		agglo[3]		age[2]		gender[1]
pull.out[83] <- as.integer(block.use[1673,5]) + as.integer(block.use[1710,5])
#	84	 	education[3]		agglo[3]		age[2]		gender[2]
pull.out[84] <- as.integer(block.use[1673,10]) + as.integer(block.use[1710,10])
#	85	 	education[3]		agglo[3]		age[3]		gender[1]
pull.out[85] <- as.integer(block.use[1673,6]) + as.integer(block.use[1710,6])
#	86	 	education[3]		agglo[3]		age[3]		gender[2]
pull.out[86] <- as.integer(block.use[1673,11]) + as.integer(block.use[1710,11])
#	87	 	education[3]		agglo[3]		age[4]		gender[1]
pull.out[87] <- as.integer(block.use[1673,7]) + as.integer(block.use[1710,7])
#	88	 	education[3]		agglo[3]		age[4]		gender[2]
pull.out[88] <- as.integer(block.use[1673,12]) + as.integer(block.use[1710,12])
#
#	89	 	education[3]		agglo[4]		age[1]		gender[1]
pull.out[89] <- as.integer(block.use[2155,4]) + as.integer(block.use[2192,4])
#	90	 	education[3]		agglo[4]		age[1]		gender[2]
pull.out[90] <- as.integer(block.use[2155,9]) + as.integer(block.use[2192,9])
#	91	 	education[3]		agglo[4]		age[2]		gender[1]
pull.out[91] <- as.integer(block.use[2155,5]) + as.integer(block.use[2192,5])
#	92	 	education[3]		agglo[4]		age[2]		gender[2]
pull.out[92] <- as.integer(block.use[2155,10]) + as.integer(block.use[2192,10])
#	93	 	education[3]		agglo[4]		age[3]		gender[1]
pull.out[93] <- as.integer(block.use[2155,6]) + as.integer(block.use[2192,6])
#	94	 	education[3]		agglo[4]		age[3]		gender[2]
pull.out[94] <- as.integer(block.use[2155,11]) + as.integer(block.use[2192,11])
#	95	 	education[3]		agglo[4]		age[4]		gender[1]
pull.out[95] <- as.integer(block.use[2155,7]) + as.integer(block.use[2192,7])
#	96	 	education[3]		agglo[4]		age[4]		gender[2]
pull.out[96] <- as.integer(block.use[2155,12]) + as.integer(block.use[2192,12])
#
#	97	 	education[4]		agglo[1]		age[1]		gender[1]
pull.out[97] <-  as.integer(block.use[783,4])
#	98	 	education[4]		agglo[1]		age[1]		gender[2]
pull.out[98] <-  as.integer(block.use[783,9])
#	99	 	education[4]		agglo[1]		age[2]		gender[1]
pull.out[99] <-  as.integer(block.use[783,5])
#	100	 	education[4]		agglo[1]		age[2]		gender[2]
pull.out[100] <-  as.integer(block.use[783,10])
#	101	 	education[4]		agglo[1]		age[3]		gender[1]
pull.out[101] <-  as.integer(block.use[783,6])
#	102	 	education[4]		agglo[1]		age[3]		gender[2]
pull.out[102] <-  as.integer(block.use[783,11])
#	103	 	education[4]		agglo[1]		age[4]		gender[1]
pull.out[103] <-  as.integer(block.use[783,7])
#	104	 	education[4]		agglo[1]		age[4]		gender[2]
pull.out[104] <-  as.integer(block.use[783,12])
#
#	105	 	education[4]		agglo[2]		age[1]		gender[1]
pull.out[105] <-  as.integer(block.use[1265,4])
#	106	 	education[4]		agglo[2]		age[1]		gender[2]
pull.out[106] <-  as.integer(block.use[1265,9])
#	107	 	education[4]		agglo[2]		age[2]		gender[1]
pull.out[107] <-  as.integer(block.use[1265,5])
#	108	 	education[4]		agglo[2]		age[2]		gender[2]
pull.out[108] <-  as.integer(block.use[1265,10])
#	109	 	education[4]		agglo[2]		age[3]		gender[1]
pull.out[109] <-  as.integer(block.use[1265,6])
#	110	 	education[4]		agglo[2]		age[3]		gender[2]
pull.out[110] <-  as.integer(block.use[1265,11])
#	111	 	education[4]		agglo[2]		age[4]		gender[1]
pull.out[111] <-  as.integer(block.use[1265,7])
#	112	 	education[4]		agglo[2]		age[4]		gender[2]
pull.out[112] <-  as.integer(block.use[1265,12])
#
#	113	 	education[4]		agglo[3]		age[1]		gender[1]
pull.out[113] <-  as.integer(block.use[1747,4])
#	114	 	education[4]		agglo[3]		age[1]		gender[2]
pull.out[114] <-  as.integer(block.use[1747,9])
#	115	 	education[4]		agglo[3]		age[2]		gender[1]
pull.out[115] <-  as.integer(block.use[1747,5])
#	116	 	education[4]		agglo[3]		age[2]		gender[2]
pull.out[116] <-  as.integer(block.use[1747,10])
#	117	 	education[4]		agglo[3]		age[3]		gender[1]
pull.out[117] <-  as.integer(block.use[1747,6])
#	118	 	education[4]		agglo[3]		age[3]		gender[2]
pull.out[118] <-  as.integer(block.use[1747,11])
#	119	 	education[4]		agglo[3]		age[4]		gender[1]
pull.out[119] <-  as.integer(block.use[1747,7])
#	120	 	education[4]		agglo[3]		age[4]		gender[2]
pull.out[120] <-  as.integer(block.use[1747,12])
#
#	121	 	education[4]		agglo[4]		age[1]		gender[1]
pull.out[121] <-  as.integer(block.use[2229,4])
#	122	 	education[4]		agglo[4]		age[1]		gender[2]
pull.out[122] <-  as.integer(block.use[2229,9])
#	123	 	education[4]		agglo[4]		age[2]		gender[1]
pull.out[123] <-  as.integer(block.use[2229,5])
#	124	 	education[4]		agglo[4]		age[2]		gender[2]
pull.out[124] <-  as.integer(block.use[2229,10])
#	125	 	education[4]		agglo[4]		age[3]		gender[1]
pull.out[125] <-  as.integer(block.use[2229,6])
#	126	 	education[4]		agglo[4]		age[3]		gender[2]
pull.out[126] <-  as.integer(block.use[2229,11])
#	127	 	education[4]		agglo[4]		age[4]		gender[1]
pull.out[127] <-  as.integer(block.use[2229,7])
#	128		education[4]		agglo[4]		age[4]		gender[2]
pull.out[128] <-  as.integer(block.use[2229,12])
#
#	129		education[5]		agglo[1]		age[1]		gender[1]
pull.out[129] <- as.integer(block.use[820,4])
#	130		education[5]		agglo[1]		age[1]		gender[2]
pull.out[130] <- as.integer(block.use[820,9])
#	131		education[5]		agglo[1]		age[2]		gender[1]
pull.out[131] <- as.integer(block.use[820,5])
#	132		education[5]		agglo[1]		age[2]		gender[2]
pull.out[132] <- as.integer(block.use[820,10])
#	133		education[5]		agglo[1]		age[3]		gender[1]
pull.out[133] <- as.integer(block.use[820,6])
#	134		education[5]		agglo[1]		age[3]		gender[2]
pull.out[134] <- as.integer(block.use[820,11])
#	135		education[5]		agglo[1]		age[4]		gender[1]
pull.out[135] <- as.integer(block.use[820,7])
#	136		education[5]		agglo[1]		age[4]		gender[2]
pull.out[136] <- as.integer(block.use[820,12])
#
#	137		education[5]		agglo[2]		age[1]		gender[1]
pull.out[137] <- as.integer(block.use[1302,4])
#	138		education[5]		agglo[2]		age[1]		gender[2]
pull.out[138] <- as.integer(block.use[1302,9])
#	139		education[5]		agglo[2]		age[2]		gender[1]
pull.out[139] <- as.integer(block.use[1302,5])
#	140		education[5]		agglo[2]		age[2]		gender[2]
pull.out[140] <- as.integer(block.use[1302,10])
#	141		education[5]		agglo[2]		age[3]		gender[1]
pull.out[141] <- as.integer(block.use[1302,6])
#	142		education[5]		agglo[2]		age[3]		gender[2]
pull.out[142] <- as.integer(block.use[1302,11])
#	143		education[5]		agglo[2]		age[4]		gender[1]
pull.out[143] <- as.integer(block.use[1302,7])
#	144		education[5]		agglo[2]		age[4]		gender[2]
pull.out[144] <- as.integer(block.use[1302,12])
#
#	145		education[5]		agglo[3]		age[1]		gender[1]
pull.out[145] <- as.integer(block.use[1784,4])
#	146		education[5]		agglo[3]		age[1]		gender[2]
pull.out[146] <- as.integer(block.use[1784,9])
#	147		education[5]		agglo[3]		age[2]		gender[1]
pull.out[147] <- as.integer(block.use[1784,5])
#	148		education[5]		agglo[3]		age[2]		gender[2]
pull.out[148] <- as.integer(block.use[1784,10])
#	149		education[5]		agglo[3]		age[3]		gender[1]
pull.out[149] <- as.integer(block.use[1784,6])
#	150		education[5]		agglo[3]		age[3]		gender[2]
pull.out[150] <- as.integer(block.use[1784,11])
#	151		education[5]		agglo[3]		age[4]		gender[1]
pull.out[151] <- as.integer(block.use[1784,7])
#	152		education[5]		agglo[3]		age[4]		gender[2]
pull.out[152] <- as.integer(block.use[1784,12])
#
#	153		education[5]		agglo[4]		age[1]		gender[1]
pull.out[153] <- as.integer(block.use[2266,4])
#	154		education[5]		agglo[4]		age[1]		gender[2]
pull.out[154] <- as.integer(block.use[2266,9])
#	155		education[5]		agglo[4]		age[2]		gender[1]
pull.out[155] <- as.integer(block.use[2266,5])
#	156		education[5]		agglo[4]		age[2]		gender[2]
pull.out[156] <- as.integer(block.use[2266,10])
#	157		education[5]		agglo[4]		age[3]		gender[1]
pull.out[157] <- as.integer(block.use[2266,6])
#	158		education[5]		agglo[4]		age[3]		gender[2]
pull.out[158] <- as.integer(block.use[2266,11])
#	159		education[5]		agglo[4]		age[4]		gender[1]
pull.out[159] <- as.integer(block.use[2266,7])
#	160		education[5]		agglo[4]		age[4]		gender[2]
pull.out[160] <- as.integer(block.use[2266,12])
#
#	161		education[6]		agglo[1]		age[1]		gender[1]
pull.out[161] <- as.integer(block.use[857,4]) + as.integer(block.use[894,4])
#	162		education[6]		agglo[1]		age[1]		gender[2]
pull.out[162] <- as.integer(block.use[857,9]) + as.integer(block.use[894,9])
#	163		education[6]		agglo[1]		age[2]		gender[1]
pull.out[163] <- as.integer(block.use[857,5]) + as.integer(block.use[894,5])
#	164		education[6]		agglo[1]		age[2]		gender[2]
pull.out[164] <- as.integer(block.use[857,10]) + as.integer(block.use[894,10])
#	165		education[6]		agglo[1]		age[3]		gender[1]
pull.out[165] <- as.integer(block.use[857,6]) + as.integer(block.use[894,6])
#	166		education[6]		agglo[1]		age[3]		gender[2]
pull.out[166] <- as.integer(block.use[857,11]) + as.integer(block.use[894,11])
#	167		education[6]		agglo[1]		age[4]		gender[1]
pull.out[167] <- as.integer(block.use[857,7]) + as.integer(block.use[894,7])
#	168		education[6]		agglo[1]		age[4]		gender[2]
pull.out[168] <- as.integer(block.use[857,12]) + as.integer(block.use[894,12])
#
#	169		education[6]		agglo[2]		age[1]		gender[1]
pull.out[169] <- as.integer(block.use[1339,4]) + as.integer(block.use[1376,4])
#	170		education[6]		agglo[2]		age[1]		gender[2]
pull.out[170] <- as.integer(block.use[1339,9]) + as.integer(block.use[1376,9])
#	171		education[6]		agglo[2]		age[2]		gender[1]
pull.out[171] <- as.integer(block.use[1339,5]) + as.integer(block.use[1376,5])
#	172		education[6]		agglo[2]		age[2]		gender[2]
pull.out[172] <- as.integer(block.use[1339,10]) + as.integer(block.use[1376,10])
#	173		education[6]		agglo[2]		age[3]		gender[1]
pull.out[173] <- as.integer(block.use[1339,6]) + as.integer(block.use[1376,6])
#	174		education[6]		agglo[2]		age[3]		gender[2]
pull.out[174] <- as.integer(block.use[1339,11]) + as.integer(block.use[1376,11])
#	175		education[6]		agglo[2]		age[4]		gender[1]
pull.out[175] <- as.integer(block.use[1339,7]) + as.integer(block.use[1376,7])
#	176		education[6]		agglo[2]		age[4]		gender[2]
pull.out[176] <- as.integer(block.use[1339,12]) + as.integer(block.use[1376,12])
#
#	177		education[6]		agglo[3]		age[1]		gender[1]
pull.out[177] <- as.integer(block.use[1821,4]) + as.integer(block.use[1858,4])
#	178		education[6]		agglo[3]		age[1]		gender[2]
pull.out[178] <- as.integer(block.use[1821,9]) + as.integer(block.use[1858,9])
#	179		education[6]		agglo[3]		age[2]		gender[1]
pull.out[179] <- as.integer(block.use[1821,5]) + as.integer(block.use[1858,5])
#	180		education[6]		agglo[3]		age[2]		gender[2]
pull.out[180] <- as.integer(block.use[1821,10]) + as.integer(block.use[1858,10])
#	181		education[6]		agglo[3]		age[3]		gender[1]
pull.out[181] <- as.integer(block.use[1821,6]) + as.integer(block.use[1858,6])
#	182		education[6]		agglo[3]		age[3]		gender[2]
pull.out[182] <- as.integer(block.use[1821,11]) + as.integer(block.use[1858,11])
#	183		education[6]		agglo[3]		age[4]		gender[1]
pull.out[183] <- as.integer(block.use[1821,7]) + as.integer(block.use[1858,7])
#	184		education[6]		agglo[3]		age[4]		gender[2]
pull.out[184] <- as.integer(block.use[1821,12]) + as.integer(block.use[1858,12])
#
#	185		education[6]		agglo[4]		age[1]		gender[1]
pull.out[185] <- as.integer(block.use[2303,4]) + as.integer(block.use[2340,4])
#	186		education[6]		agglo[4]		age[1]		gender[2]
pull.out[186] <- as.integer(block.use[2303,9]) + as.integer(block.use[2340,9])
#	187		education[6]		agglo[4]		age[2]		gender[1]
pull.out[187] <- as.integer(block.use[2303,5]) + as.integer(block.use[2340,5])
#	188		education[6]		agglo[4]		age[2]		gender[2]
pull.out[188] <- as.integer(block.use[2303,10]) + as.integer(block.use[2340,10])
#	189		education[6]		agglo[4]		age[3]		gender[1]
pull.out[189] <- as.integer(block.use[2303,6]) + as.integer(block.use[2340,6])
#	190		education[6]		agglo[4]		age[3]		gender[2]
pull.out[190] <- as.integer(block.use[2303,11]) + as.integer(block.use[2340,11])
#	191		education[6]		agglo[4]		age[4]		gender[1]
pull.out[191] <- as.integer(block.use[2303,7]) + as.integer(block.use[2340,7])
#	192		education[6]		agglo[4]		age[4]		gender[2]
pull.out[192] <- as.integer(block.use[2303,12]) + as.integer(block.use[2340,12])

pull.out.d <- rep(NA,12)

# educ[1]
pull.out.d[1] <- sum(pull.out[1:32])
# educ[2]
pull.out.d[2] <- sum(pull.out[33:64])
# educ[3]
pull.out.d[3] <- sum(pull.out[65:96])
# educ[4]
pull.out.d[4] <- sum(pull.out[97:128])
# educ[5]
pull.out.d[5] <- sum(pull.out[129:160])
# educ[6]
pull.out.d[6] <- sum(pull.out[161:192])
# age[1]
veci <- c(1:2)
for (i in 1:23){
	g <- i*8
	vek <- g+c(1,2)
	veci <- c(veci,vek)
}
pull.out.d[7] <- sum(pull.out[veci])
# age[2]
pull.out.d[8] <- sum(pull.out[veci+2])
# age[3]
pull.out.d[9] <- sum(pull.out[veci+4])
# age[4]
pull.out.d[10] <- sum(pull.out[veci+6])
# gender[1]
pull.out.d[11] <- sum(pull.out[seq(1,191,length.out=96)])
# gender[2]
pull.out.d[12] <- sum(pull.out[seq(2,192,length.out=96)])

## shares
pull.out.d[1:6] <- pull.out.d[1:6]/sum(pull.out.d[1:6])
pull.out.d[7:10] <- pull.out.d[7:10]/sum(pull.out.d[7:10])
pull.out.d[11:12] <- pull.out.d[11:12]/sum(pull.out.d[11:12])

